home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / cnet_who.lha / Who / Loader < prev    next >
Text File  |  1995-10-15  |  951b  |  16 lines
  1. /**************************************************************************\
  2.             $VER: CNet WHO Loader, v2.51 (15-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results ; getuser 39 ; banners="mail:users/"result"/_Banners"
  5. getuser 38 ; who=result ; a=getclip('IdleWhoB0') ; if a="" then do
  6.   call open(f1,'pfiles:Who/IdlePorts','r') ; a=word(readln(f1),1)
  7.   do i=1 to a ; b=readln(f1) ; parse var b p'|'info
  8.   call setclip('IdleWhoB'p,info) ; end i ; call close(f1) ; end
  9. if exists(banners) then do ; call open(f1,banners,'r')
  10.   do i=1 to 9 ; w.i=readln(f1) ; end i ; call close(f1)
  11.   setobject w.1 ; putuser 38 ; call open(f1,banners,'w')
  12.   do i=2 to 9 ; call writeln(f1,w.i) ; end i ; call writeln(f1,who)
  13.   call close(f1) ; end
  14. /** Last Edited: 15-Oct-95 ************************************************\
  15. \****************************************** Frontiers BBS (716)/823-9892 **/
  16.